home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aax.d64 / haiku fun (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  107 lines
  1. 1 REM**********************************      *                                *
  2. 2 REM* THIS PROGRAM WAS ORIGINALLY    *      * CREATED BY MARKB17 - LOCATED   *
  3. 3 REM* IN GAMES UTILITIES-STUFF AND   *      * NONSENSE.                      *
  4. 4 REM* I HAVE ADDED THE ABILITY TO    *      * CREATE YOU OWN HAIKU - YOU CAN *
  5. 5 REM* ALSO PRINT A COPY OF POEM.     *      *                                *
  6. 6 REM* LEARN AND HAVE FUN             *      *                    DONN WALTER *
  7. 7 REM*                                *      **********************************
  8. 110 POKE 53281,1
  9. 120 FORX=0TO9:READF$(X):NEXT:FORX=0TO7:READS$(X):NEXTX
  10. 130 FORX=1TO7:READT$(X):NEXTX
  11. 140 PRINT"[147]":PRINTTAB(17)"[149] HAIKU [146]":PRINT
  12. 142 PRINTTAB(17)"[145][145][145]       [146]"
  13. 144 PRINTTAB(17)"       [146]"
  14. 150 PRINT:PRINT"HELLO HONOURABLE USER.":PRINT
  15. 160 PRINT"I AM A JAPANESE HAIKU PROGRAM.":PRINT
  16. 170 PRINT"PRESS ANY KEY AND I WILL BE PLEASED TO  WRITE A POEM FOR YOU."
  17. 180 PRINT:PRINT"HAIKU IS A MOST VENERABLE FORM OF POETRYAND IT IS AN HONOUR";
  18. 190 PRINT" TO WRITE FOR YOU."
  19. 192 PRINT"IF YOU WOULD RATHER CREATE YOUR OWN,"
  20. 194 PRINT"PLEASE BE HONOURED TO PRESS FUNCTION #1"
  21. 200 PRINT:PRINT"        PRESS ANY KEY TO BEGIN [146]"
  22. 210 GETQ$:IFQ$=""THEN210
  23. 212 IF Q$="[133]" THEN 400
  24. 220 A=INT(RND(8)*10):B=INT(RND(8)*8):C=INT(RND(6)*8)
  25. 230 PRINT"[147]"
  26. 240 PRINTTAB(20-LEN(F$(A))/2);F$(A)
  27. 250 PRINTTAB(20-LEN(S$(B))/2);S$(B)
  28. 260 PRINTTAB(20-LEN(T$(C))/2);T$(C)
  29. 270 PRINT:PRINT:PRINT:PRINT" HIT <SPACE BAR>[146] TO RECEIVE A NEW POEM."
  30. 272 PRINT"     PRESS <F1>[146] TO WRITE YOUR OWN
  31. 275 [153]"          PRESS <Q>WAIT TO QUIT...
  32. 280 GETQ$:IFQ$=""THEN280
  33. 285 IF Q$<>" "AND Q$<>"Q"ANDQ$<>"[133]"THEN280
  34. 290 IF Q$=" "THEN220
  35. 292 IF Q$="[133]"THEN 400
  36. 295 IF Q$="Q"THEN 600
  37. 300 DATA THE GRAY MOUNTAINS HOST,TODAY I SAW THE,SPLASHES IN THE POND
  38. 310 DATA NOW CHERRY BLOSSOMS,DROPPING FROM BRANCHES,FRESHLY DRAWN CHALK LINES
  39. 320 DATA WINTER HILLSIDES HOST,NOW PLAYING CHILDREN,A MOONLIT QUIET
  40. 330 DATA A GARDEN CHANGES,MOMENTARY SIGHTS OF,SQUIRREL GATHERING ACORNS
  41. 340 DATA DISTURB THE REFLECTION OF,SWIRL IN THE TWILIGHT COOLNESS
  42. 350 DATA BRIGHT LEAVES PROVIDE A COVER,REFLECT IMAGINATION
  43. 360 DATA THE LAUGHTER AND SNOWY PLAY,CATCH RAYS OF BROKEN MOONLIGHT
  44. 370 DATA THE SUMMER LIGHTNING,WINTER IS COMING,A MOONLIT QUIET
  45. 380 DATA FUEL FOR CHILDREN'S PLAY,OF SUMMER CHILDREN,OF BUNDLED UP YOUTH
  46. 390 DATA SPLASHES IN THE POND
  47. 400 PRINT"[147]"
  48. 410 PRINT"   THE HAIKU IS CONSTRUCTED OF THREE"
  49. 415 PRINT"       [163][163][163][163][163]"
  50. 420 PRINT"    LINES OF FIVE, SEVEN, AND FIVE"
  51. 425 PRINT"              SYLLABLES."
  52. 430 PRINT"     I WILL ASK YOU TO TYPE EACH OF"
  53. 435 PRINT" THREE LINES WITH THE CORRECT SYLLABLES"
  54. 440 PRINT"     INDIVIDUALLY.  AFTER ALL THREE"
  55. 450 PRINT"   LINES ARE ENTERED WE WILL SEE YOUR"
  56. 460 PRINT"                CREATION!
  57. 465 [153]"                TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  58. 470 [153]"   PRESS <SPACE BAR>WAIT FOR INSTRUCTIONS"
  59. 475 [161] A$:[139]A$[178]""[167]475
  60. 477 [139] A$[179][177]" "[167]475
  61. 480 [153]"LOADHAIKU USUALLY CONSISTS OF SEASONAL"
  62. 485 [153]"CHANGES AND MOODS, BUT TYPE IN ANY"
  63. 490 [153]"SUBJECT YOU WOULD LIKE."
  64. 495 [153]"ENTER A FIVE SYLLABLE PHRASE THEN PRESS                <RETURN>WAIT."
  65. 498 [153]"PRINT#(P.S. PLEASE LEAVE OUT ANY PUNCTUATION.)"
  66. 500 [133]"ONONONONONONONONONONONONONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";A$
  67. 510 [153]"LOADENTER A SEVEN SYLLABLE PHRASE"
  68. 515 [153]"TO GO ALONG WITH THE FIRST."
  69. 517 [153]""
  70. 518 [153][163]20[171][195](A$)[173]2);A$
  71. 520 [133]"ONONONONONONONONONONONONONON";B$
  72. 525 [153]"LOADENTER A FIVE SYLLABLE PHRASE"
  73. 530 [153]"TO MATCH UP WITH THE OTHER TWO"
  74. 535 [153]"SUBJECT WISE."
  75. 537 [153]""
  76. 538 [153][163]20[171][195](A$)[173]2);A$
  77. 539 [153][163]20[171][195](B$)[173]2);B$
  78. 540 [133]"ONONONONONONONONONONONONONON";C$
  79. 550 [153]"LOAD"
  80. 560 [153][163]20[171][195](A$)[173]2);A$
  81. 570 [153][163]20[171][195](B$)[173]2);B$
  82. 580 [153][163]20[171][195](C$)[173]2);C$
  83. 590 [137]270
  84. 600 [153]"LOADWOULD YOU LIKE TO PRINT A COPY OF"
  85. 610 [153]"YOUR OWN PERSONAL HAIKU?   (Y/N)WAIT"
  86. 615 [153]"                  TAB(TAB(TAB(TAB(TAB("
  87. 617 [153]"LIST (THIS WILL ONLY PRINT YOUR CREATION!)"
  88. 619 [153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  89. 620 [161] Q$:[139]Q$[178]""[167]620
  90. 625 [139] Q$[179][177]"Y"[175]Q$[179][177]"N"[167]620
  91. 630 [139] Q$[178]"N"[167][153]"LOADSIANARA HONOURABLE GUEST...":[128]
  92. 632 [139] A$[178]""[167] Q$[178]"N":[137]630
  93. 635 [159]4,4
  94. 637 [152]4,[199](14)
  95. 638 [152]4,"HAIKU"
  96. 639 [152]4,"TAB(TAB(TAB(TAB(TAB("
  97. 640 [152]4,A$
  98. 650 [152]4,B$
  99. 660 [152]4,C$
  100. 665 [152]4,[199](15)
  101. 670 [152]4
  102. 672 [160]4
  103. 675 [153]"LOADSIANARA HONOURABLE FRIEND...":[128]
  104. 680 [143] ***************************             *                         *
  105. 681 [143] * SEE LISTING FROM 1 TO 7 *             *        FOR CREDITS      *
  106. 682 [143] *                         *             ***************************
  107.